100 REM -- RADIAN DEMO -- PRESS ANY KEY TO CONTINUE THE DEMO
105 PRINT"[147]"
110 PRINT"OUTPUT TO SCREEN OR PRINTER (S/P)    S[157][157][157]";:INPUTA$
115 IF A$="S" THEN Z=1.33:Z1=0:Z2=26.4:GOTO130:REM VALUES FOR SCREEN OUTPUT
120 IF A$<>"P" THEN110
125 Z=1.208:Z1=2.01:Z2=38.24:REM VALUES FOR PRINTER OUTPUT
130 VERIFY 1:LET0,1
135 CONT
140 REM -- SET UP CONSTANTS --
145 REM -- XT AND YT SET X AND Y AXES. XS AND YS SET START OF X AND Y AXES.
150 REM -- EX AND EY ARE EXPANSION FACTORS FOR X AND Y COORDINATES.
155 XT=159:YT=100:XS=Z1:YS=0:EX=50*Z:EY=50
160 REM -- CALIBRATE X COORDINATES --
165 FORX=XS TO319 STEP5*Z
170 Y=YT:WAITX,Y:NEXTX
175 FORX=XS TO319 STEP10*Z
180 FORY=YT-1 TO YT+1:WAITX,Y:NEXTY:NEXTX
185 FORX=Z2TO319 STEP50*Z
190 FORY=YT-2 TO YT+2:WAITX,Y:NEXTY:NEXTX
195 REM -- CALIBRATE Y COORDINATES --
200 FOR Y=YSTO199 STEP5
205 X=XT:WAITX,Y:NEXTY
210 FOR Y=YS TO 199 STEP 10
215 FOR X=XT-1 TO XT+1:WAITX,Y:NEXTX:NEXTY
220 FOR Y=YS TO 199 STEP50
225 FOR X=XT-3 TO XT+3:WAITX,Y:NEXTX:NEXTY
249 REM -- RADIAN DEMO --
250 FOR Z=0 TO 6
260 FOR A=0+ZTO 1+Z STEP.02
270 X=COS(A):Y=SIN(A)
280 X1=EX*X+XT:Y1=EY*Y+YT:WAITX1,Y1:NEXTA
290 FOR R=0 TO 1 STEP .02
300 X=R*COS(A):Y=R*SIN(A)
310 X1=EX*X+XT:Y1=EY*Y+YT:WAITX1,Y1:NEXTR
320 IF Z=5 THEN 1000
330 GETA$:IF A$="" THEN 330
340 NEXTZ
999 REM -- SCREEN OR HARDCOPY --
1000 GET A$:IF A$="" THEN1000
1010 PRINT "[147]":VERIFY 0:PRINTCHR$(14)
1020 PRINT"HARDCOPY (Y/N)    N[157][157][157]";:INPUTA$:IFA$="N" THEN1080
1030 IFA$<>"Y"THEN1010
1040 PRINT"SINGLE OR DOUBLE WIDTH (S/D)    S[157][157][157]";:INPUTA$
1050 IFA$="S" THEN POKE2,1:GOTO1070
1060 POKE2,2:IFA$<>"D"THEN1040
1070 VERIFY 1:SYS52224
1080 VERIFY 0:PRINTCHR$(14):LIST